home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / intuition / DTSystem.p < prev    next >
Encoding:
Text File  |  2004-01-31  |  12.4 KB  |  349 lines
  1. pTempVar <- <primitive 110 7 >
  2. <primitive 112 pTempVar 1  " printString " \
  3.   #( #[ 16r30 16rF3 16rF5] \
  4.     #( 'Intuition'  )) >
  5.  
  6. <primitive 112 pTempVar 2  " systemTag: " \
  7.   #( #[ 16r52 16r11 16r21 16rFA 16r03 16rCE 16rF3 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " close " \
  11.   #( #[ 16r50 16r12 16r11 16rFA 16r03 16rCE 16r62 16r5D 16rF1 16r61 16rF3 \
  12.         16rF5] \
  13.     #(  )) >
  14.  
  15. <primitive 112 pTempVar 4  " privateSetup " \
  16.   #( #[ 16r10 16rA1 16rF7 16r13 16r20 16r80 16r00 16r60 16r31 16r63 16r53 \
  17.         16rFA 16r01 16rCE 16r61 16r51 16r13 16r11 16rFA 16r03 16rCE \
  18.         16r62 16r5D 16rF2 16r20 16rF3 16rF5] \
  19.     #( #privateNew 'AmigaTalk:prelude/listFiles/Intuition.dictionary'  )) >
  20.  
  21. <primitive 112 pTempVar 5  " new " \
  22.   #( #[ 16r20 16r80 16r00 16rF3 16rF5] \
  23.     #( #privateSetup  )) >
  24.  
  25. <primitive 112 pTempVar 6  " privateNew " \
  26.   #( #[ 16r51 16rFA 16r01 16r6E 16r71 16r21 16rF3 16rF5] \
  27.     #(  )) >
  28.  
  29. <primitive 112 pTempVar 7  " isSingleton " \
  30.   #( #[ 16r5B 16rF3 16rF5] \
  31.     #(  )) >
  32.  
  33. <primitive 98 #Intuition \
  34.   <primitive 97 #Intuition #Object #AmigaTalk:Intuition/IntuitionTags.st \
  35.    #(  #uniqueInstance #private0 #private1 #myName ) \
  36.    #( #printString #systemTag: #close #privateSetup #new #privateNew  \
  37.        #isSingleton  ) \
  38.   pTempVar 2 6 > #isSingleton >
  39.  
  40. pTempVar <- <primitive 110 7 >
  41. <primitive 112 pTempVar 1  " printString " \
  42.   #( #[ 16r30 16rF3] \
  43.     #( 'BoopsiTags'  )) >
  44.  
  45. <primitive 112 pTempVar 2  " systemTag: " \
  46.   #( #[ 16r52 16r11 16r21 16rFA 16r03 16rCE 16rF3] \
  47.     #(  )) >
  48.  
  49. <primitive 112 pTempVar 3  " close " \
  50.   #( #[ 16r50 16r12 16r11 16rFA 16r03 16rCE 16r62 16r5D 16rF1 16r61 16rF3 \
  51.        ] \
  52.     #(  )) >
  53.  
  54. <primitive 112 pTempVar 4  " privateSetup " \
  55.   #( #[ 16r10 16rA1 16rF7 16r13 16r20 16r80 16r00 16r60 16r31 16r63 16r53 \
  56.         16rFA 16r01 16rCE 16r61 16r51 16r13 16r11 16rFA 16r03 16rCE \
  57.         16r62 16r5D 16rF2 16r20 16rF3] \
  58.     #( #privateNew 'AmigaTalk:prelude/listFiles/BoopsiTags.dictionary'  )) >
  59.  
  60. <primitive 112 pTempVar 5  " new " \
  61.   #( #[ 16r20 16r80 16r00 16rF3] \
  62.     #( #privateSetup  )) >
  63.  
  64. <primitive 112 pTempVar 6  " privateNew " \
  65.   #( #[ 16r51 16rFA 16r01 16r6E 16r71 16r21 16rF3] \
  66.     #(  )) >
  67.  
  68. <primitive 112 pTempVar 7  " isSingleton " \
  69.   #( #[ 16r5B 16rF3] \
  70.     #(  )) >
  71.  
  72. <primitive 98 #BoopsiTags \
  73.   <primitive 97 #BoopsiTags #Object #AmigaTalk:Intuition/BOOPSITags.st \
  74.    #(  #uniqueInstance #private0 #private1 #myName ) \
  75.    #( #printString #systemTag: #close #privateSetup #new #privateNew  \
  76.        #isSingleton  ) \
  77.   pTempVar 2 6 > #isSingleton >
  78.  
  79. pTempVar <- <primitive 110 7 >
  80. <primitive 112 pTempVar 1  " printString " \
  81.   #( #[ 16r30 16rF3 16rF5] \
  82.     #( 'DataTypeTags'  )) >
  83.  
  84. <primitive 112 pTempVar 2  " systemTag: " \
  85.   #( #[ 16r52 16r11 16r21 16rFA 16r03 16rCE 16rF3 16rF5] \
  86.     #(  )) >
  87.  
  88. <primitive 112 pTempVar 3  " close " \
  89.   #( #[ 16r50 16r12 16r11 16rFA 16r03 16rCE 16r62 16r5D 16rF1 16r61 16rF3 \
  90.         16rF5] \
  91.     #(  )) >
  92.  
  93. <primitive 112 pTempVar 4  " privateSetup " \
  94.   #( #[ 16r10 16rA1 16rF7 16r13 16r20 16r80 16r00 16r60 16r31 16r63 16r53 \
  95.         16rFA 16r01 16rCE 16r61 16r51 16r13 16r11 16rFA 16r03 16rCE \
  96.         16r62 16r5D 16rF2 16r20 16rF3 16rF5] \
  97.     #( #privateNew 'AmigaTalk:prelude/listFiles/DataTypeTags.dictionary'  )) >
  98.  
  99. <primitive 112 pTempVar 5  " new " \
  100.   #( #[ 16r20 16r80 16r00 16rF3 16rF5] \
  101.     #( #privateSetup  )) >
  102.  
  103. <primitive 112 pTempVar 6  " privateNew " \
  104.   #( #[ 16r51 16rFA 16r01 16r6E 16r71 16r21 16rF3 16rF5] \
  105.     #(  )) >
  106.  
  107. <primitive 112 pTempVar 7  " isSingleton " \
  108.   #( #[ 16r5B 16rF3 16rF5] \
  109.     #(  )) >
  110.  
  111. <primitive 98 #DataTypeTags \
  112.   <primitive 97 #DataTypeTags #Object #AmigaTalk:Intuition/DataTypeTags.st \
  113.    #(  #uniqueInstance #private0 #private1 #myName ) \
  114.    #( #printString #systemTag: #close #privateSetup #new #privateNew  \
  115.        #isSingleton  ) \
  116.   pTempVar 2 6 > #isSingleton >
  117.  
  118. pTempVar <- <primitive 110 5 >
  119. <primitive 112 pTempVar 1  " privateSetupDictionary " \
  120.   #( #[ 16r20 16r30 16r31 16rD0 16rF2 16r20 16r32 16r33 16rD0 16rF2 16r20 \
  121.         16r34 16r35 16rD0 16rF2 16r20 16r36 16r37 16rD0 16rF2 16r20 \
  122.         16r38 16r39 16rD0 16rF2 16r20 16r3A 16r3B 16rD0 16rF2 16r20 \
  123.         16r3C 16r3D 16rD0 16rF2 16r20 16r3E 16r3F 16rD0 16rF2 16r20 \
  124.         16r03 16r10 16r03 16r11 16rD0 16rF2 16r20 16r03 16r12 16r03 \
  125.         16r13 16rD0 16rF2 16r20 16r03 16r14 16r03 16r15 16rD0 16rF2 \
  126.         16r20 16r03 16r16 16r03 16r17 16rD0 16rF2 16r20 16r03 16r18 \
  127.         16r03 16r19 16rD0 16rF2 16r20 16r03 16r1A 16r03 16r1B 16rD0 \
  128.         16rF2 16r20 16r03 16r1C 16r03 16r1D 16rD0 16rF2 16rF5] \
  129.     #( #ROOTCLASS 'rootclass' #IMAGECLASS 'imageclass' #FRAMEICLASS \
  130.         'frameiclass' #SYSICLASS 'sysiclass' #FILLRECTCLASS 'fillrectclass' \
  131.         #GADGETCLASS 'gadgetclass' #PROPGCLASS 'propgclass' #STRGCLASS \
  132.         'strgclass' #BUTTONGCLASS 'buttongclass' #FRBUTTONCLASS 'frbuttonclass' \
  133.         #GROUPGCLASS 'groupgclass' #ICCLASS 'icclass' #MODELCLASS 'modelclass' \
  134.         #ITEXTICLASS 'itexticlass' #POINTERCLASS 'pointerclass'  )) >
  135.  
  136. <primitive 112 pTempVar 2  " privateSetup " \
  137.   #( #[ 16r10 16rA1 16rF7 16r09 16r20 16r80 16r00 16r60 16r20 16r80 16r01 \
  138.         16rF2 16r5D 16rF2 16r20 16rF3] \
  139.     #( #privateNew #privateSetupDictionary  )) >
  140.  
  141. <primitive 112 pTempVar 3  " new " \
  142.   #( #[ 16r20 16r80 16r00 16rF3] \
  143.     #( #privateSetup  )) >
  144.  
  145. <primitive 112 pTempVar 4  " privateNew " \
  146.   #( #[ 16r20 16r90 16r00 16r71 16r21 16rF3] \
  147.     #( #new  )) >
  148.  
  149. <primitive 112 pTempVar 5  " isSingleton " \
  150.   #( #[ 16r5B 16rF3] \
  151.     #(  )) >
  152.  
  153. <primitive 98 #BoopsiClassNames \
  154.   <primitive 97 #BoopsiClassNames #Dictionary #AmigaTalk:Intuition/BoopsiClassNames.st \
  155.    #(  #uniqueInstance ) \
  156.    #( #privateSetupDictionary #privateSetup #new #privateNew #isSingleton  ) \
  157.   pTempVar 2 5 > #isSingleton >
  158.  
  159. pTempVar <- <primitive 110 34 >
  160. <primitive 112 pTempVar 1  " getFileDataType: " \
  161.   #( #[ 16r30 16r21 16rFA 16r02 16rD2 16rF3 16rF5] \
  162.     #( 37  )) >
  163.  
  164. <primitive 112 pTempVar 2  " cleanupDataTypes " \
  165.   #( #[ 16r30 16rFA 16r01 16rD2 16rF2 16rF5] \
  166.     #( 36  )) >
  167.  
  168. <primitive 112 pTempVar 3  " startDragSelect: " \
  169.   #( #[ 16r30 16r21 16rFA 16r02 16rD2 16rF3 16rF5] \
  170.     #( 31  )) >
  171.  
  172. <primitive 112 pTempVar 4  " saveDTObject:window:req:file:mode:flag:attrs: " \
  173.   #( #[ 16r30 16r21 16r22 16r23 16r24 16r25 16r26 16r27 16rFA 16r08 16rD2 \
  174.         16rF3 16rF5] \
  175.     #( 30  )) >
  176.  
  177. <primitive 112 pTempVar 5  " releaseDTDrawInfo:handle: " \
  178.   #( #[ 16r05 16r1D 16r21 16r22 16rFA 16r03 16rD2 16rF2 16rF5] \
  179.     #(  )) >
  180.  
  181. <primitive 112 pTempVar 6  " obtainDTDrawInfo:attrs: " \
  182.   #( #[ 16r05 16r1C 16r21 16r22 16rFA 16r03 16rD2 16rF3 16rF5] \
  183.     #(  )) >
  184.  
  185. <primitive 112 pTempVar 7  " lockDataType: " \
  186.   #( #[ 16r05 16r1B 16r21 16rFA 16r02 16rD2 16rF2 16rF5] \
  187.     #(  )) >
  188.  
  189. <primitive 112 pTempVar 8  " launchTool:project:attrs: " \
  190.   #( #[ 16r05 16r1A 16r21 16r22 16r23 16rFA 16r04 16rD2 16rF3 16rF5] \
  191.     #(  )) >
  192.  
  193. <primitive 112 pTempVar 9  " getDTTriggerMethodDataFlags: " \
  194.   #( #[ 16r05 16r19 16r21 16rFA 16r02 16rD2 16rF3 16rF5] \
  195.     #(  )) >
  196.  
  197. <primitive 112 pTempVar 10  " freeDTMethods: " \
  198.   #( #[ 16r05 16r18 16r21 16rFA 16r02 16rD2 16rF2 16rF5] \
  199.     #(  )) >
  200.  
  201. <primitive 112 pTempVar 11  " findTriggerMethod:command:method: " \
  202.   #( #[ 16r05 16r17 16r21 16r22 16r23 16rFA 16r04 16rD2 16rF3 16rF5] \
  203.     #(  )) >
  204.  
  205. <primitive 112 pTempVar 12  " findToolNode:attrs: " \
  206.   #( #[ 16r05 16r16 16r21 16r22 16rFA 16r03 16rD2 16rF3 16rF5] \
  207.     #(  )) >
  208.  
  209. <primitive 112 pTempVar 13  " findThisMethod:in: " \
  210.   #( #[ 16r05 16r15 16r22 16r21 16rFA 16r03 16rD2 16rF3 16rF5] \
  211.     #(  )) >
  212.  
  213. <primitive 112 pTempVar 14  " drawDTObject:rport:start:end:h:v:attrs: " \
  214.   #( #[ 16r23 16r0A 16r31 16r78 16r23 16r0A 16r32 16r79 16r24 16r0A 16r31 \
  215.         16r7A 16r24 16r0A 16r32 16r7B 16r05 16r14 16r21 16r22 16r28 \
  216.         16r29 16r2A 16r2B 16r25 16r26 16r27 16rFA 16r0A 16rD2 16rF3 \
  217.         16rF5] \
  218.     #(  )) >
  219.  
  220. <primitive 112 pTempVar 15  " obtainDomain:window:req:rport:which:domain:tags: " \
  221.   #( #[ 16r05 16r13 16r21 16r22 16r23 16r24 16r25 16r26 16r27 16rFA 16r08 \
  222.         16rD2 16rF3 16rF5] \
  223.     #(  )) >
  224.  
  225. <primitive 112 pTempVar 16  " copyDTTriggerMethods:include:exclude: " \
  226.   #( #[ 16r05 16r12 16r21 16r22 16r23 16rFA 16r04 16rD2 16rF3 16rF5] \
  227.     #(  )) >
  228.  
  229. <primitive 112 pTempVar 17  " copyDTMethods:include:exclude: " \
  230.   #( #[ 16r05 16r11 16r21 16r22 16r23 16rFA 16r04 16rD2 16rF3 16rF5] \
  231.     #(  )) >
  232.  
  233. <primitive 112 pTempVar 18  " translateDTErrorNum " \
  234.   #( #[ 16r05 16r10 16rFA 16r01 16rD2 16rF3 16rF5] \
  235.     #(  )) >
  236.  
  237. <primitive 112 pTempVar 19  " setDTAttrs:req:tags: " \
  238.   #( #[ 16r30 16r10 16r21 16r22 16r23 16rFA 16r05 16rD2 16rF3 16rF5] \
  239.     #( 15  )) >
  240.  
  241. <primitive 112 pTempVar 20  " releaseDTObject " \
  242.   #( #[ 16r30 16r10 16rFA 16r02 16rD2 16rF3 16rF5] \
  243.     #( 14  )) >
  244.  
  245. <primitive 112 pTempVar 21  " refreshDTObject:attrs: " \
  246.   #( #[ 16r30 16r10 16r21 16r22 16rFA 16r04 16rD2 16rF2 16rF5] \
  247.     #( 13  )) >
  248.  
  249. <primitive 112 pTempVar 22  " printDTObject:req:prtObj: " \
  250.   #( #[ 16r30 16r10 16r21 16r22 16r23 16rFA 16r05 16rD2 16rF3 16rF5] \
  251.     #( 12  )) >
  252.  
  253. <primitive 112 pTempVar 23  " examineClip:attrs: " \
  254.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rD2 16rF3 16rF5] \
  255.     #( 11  )) >
  256.  
  257. <primitive 112 pTempVar 24  " examineFile:attrs: " \
  258.   #( #[ 16r30 16r21 16r22 16rFA 16r03 16rD2 16rF3 16rF5] \
  259.     #( 10  )) >
  260.  
  261. <primitive 112 pTempVar 25  " getDTTriggerMethods " \
  262.   #( #[ 16r59 16r10 16rFA 16r02 16rD2 16rF3 16rF5] \
  263.     #(  )) >
  264.  
  265. <primitive 112 pTempVar 26  " getDTString: " \
  266.   #( #[ 16r58 16r21 16rFA 16r02 16rD2 16rF3 16rF5] \
  267.     #(  )) >
  268.  
  269. <primitive 112 pTempVar 27  " getDTMethods " \
  270.   #( #[ 16r57 16r10 16rFA 16r02 16rD2 16rF3 16rF5] \
  271.     #(  )) >
  272.  
  273. <primitive 112 pTempVar 28  " getDTAttrs: " \
  274.   #( #[ 16r56 16r10 16r21 16rFA 16r03 16rD2 16rF3 16rF5] \
  275.     #(  )) >
  276.  
  277. <primitive 112 pTempVar 29  " doDTMethod:req:msg: " \
  278.   #( #[ 16r55 16r10 16r21 16r22 16r23 16rFA 16r05 16rD2 16rF3 16rF5] \
  279.     #(  )) >
  280.  
  281. <primitive 112 pTempVar 30  " doAsyncLayout: " \
  282.   #( #[ 16r54 16r10 16r21 16rFA 16r03 16rD2 16rF3 16rF5] \
  283.     #(  )) >
  284.  
  285. <primitive 112 pTempVar 31  " removeDTObject: " \
  286.   #( #[ 16r53 16r21 16r10 16rFA 16r03 16rD2 16rF3 16rF5] \
  287.     #(  )) >
  288.  
  289. <primitive 112 pTempVar 32  " addDTObject:position: " \
  290.   #( #[ 16r52 16r21 16r22 16r10 16rFA 16r04 16rD2 16rF3 16rF5] \
  291.     #(  )) >
  292.  
  293. <primitive 112 pTempVar 33  " disposeDTObject: " \
  294.   #( #[ 16r51 16r21 16rFA 16r02 16rD2 16rF2 16r55 16r50 16r21 16rFA 16r03 \
  295.         16rFA 16rF2 16r5D 16rF3 16rF5] \
  296.     #(  )) >
  297.  
  298. <primitive 112 pTempVar 34  " newDTObject:tags: " \
  299.   #( #[ 16r50 16r21 16r22 16rFA 16r03 16rD2 16r60 16r10 16rF3 16rF5] \
  300.     #(  )) >
  301.  
  302. <primitive 98 #DataType \
  303.   <primitive 97 #DataType #Object #AmigaTalk:Intuition/DataType.st \
  304.    #(  #private ) \
  305.    #( #getFileDataType: #cleanupDataTypes #startDragSelect:  \
  306.        #saveDTObject:window:req:file:mode:flag:attrs: #releaseDTDrawInfo:handle: #obtainDTDrawInfo:attrs: #lockDataType:  \
  307.        #launchTool:project:attrs: #getDTTriggerMethodDataFlags: #freeDTMethods:  \
  308.        #findTriggerMethod:command:method: #findToolNode:attrs: #findThisMethod:in:  \
  309.        #drawDTObject:rport:start:end:h:v:attrs: #obtainDomain:window:req:rport:which:domain:tags:  \
  310.        #copyDTTriggerMethods:include:exclude: #copyDTMethods:include:exclude: #translateDTErrorNum  \
  311.        #setDTAttrs:req:tags: #releaseDTObject #refreshDTObject:attrs: #printDTObject:req:prtObj:  \
  312.        #examineClip:attrs: #examineFile:attrs: #getDTTriggerMethods #getDTString: #getDTMethods  \
  313.        #getDTAttrs: #doDTMethod:req:msg: #doAsyncLayout: #removeDTObject:  \
  314.        #addDTObject:position: #disposeDTObject: #newDTObject:tags:  ) \
  315.   pTempVar 12 11 > #ordinary >
  316.  
  317. pTempVar <- <primitive 110 6 >
  318. <primitive 112 pTempVar 1  " setTag:index: " \
  319.   #( #[ 16r20 16r22 16r21 16r92 16r00 16rF3] \
  320.     #( #at:put:  )) >
  321.  
  322. <primitive 112 pTempVar 2  " deleteTagPair: " \
  323.   #( #[ 16r30 16r20 16r21 16rFA 16r03 16rD2 16rF3] \
  324.     #( 35  )) >
  325.  
  326. <primitive 112 pTempVar 3  " addTagPair:value: " \
  327.   #( #[ 16r30 16r20 16r21 16r22 16rFA 16r04 16rD2 16rF3] \
  328.     #( 34  )) >
  329.  
  330. <primitive 112 pTempVar 4  " setTagValue:value: " \
  331.   #( #[ 16r30 16r20 16r21 16r22 16rFA 16r04 16rD2 16rF2 16rF5] \
  332.     #( 32  )) >
  333.  
  334. <primitive 112 pTempVar 5  " getTagValue: " \
  335.   #( #[ 16r30 16r20 16r21 16rFA 16r03 16rD2 16rF3] \
  336.     #( 33  )) >
  337.  
  338. <primitive 112 pTempVar 6  " new: " \
  339.   #( #[ 16r20 16r21 16r91 16r00 16rF3] \
  340.     #( #new:  )) >
  341.  
  342. <primitive 98 #TagList \
  343.   <primitive 97 #TagList #Array #AmigaTalk:Intuition/TagList.st \
  344.    #(  ) \
  345.    #( #setTag:index: #deleteTagPair: #addTagPair:value: #setTagValue:value:  \
  346.        #getTagValue: #new:  ) \
  347.   pTempVar 3 5 > #ordinary >
  348.  
  349.